home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / par / exampl17.pom < prev    next >
Encoding:
Text File  |  1996-05-12  |  324 b   |  10 lines
  1. BEGIN    $FLINE ^ "Tomato"
  2.   LOG      "Y" = "Y" "The word was found in the following line:"
  3.   TRIM     $FLINE "B" " "
  4.   LOG      "Y" = "Y" $FLINE
  5.   PARSE    inpfname $COMMAND "2* " "3* "
  6.   SET      message = "The file containing ""Tomato"" is: "
  7.   APPEND   message message inpfname
  8.   HALT     "Y" = "Y" message
  9. END
  10.